home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / U5MAPEDITOR.ARC / U5 MAP EDITOR (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  101 lines
  1. 50 POKE56,149:CLR:MM=151*256:SP$="                                        ":DIMSY(17),HP$(21):::FORL1=0TO63:A=0:IFL1>23THEN140
  2. 135 READA
  3. 140 POKE52160+L1,A:NEXT:DATA24,0,0,24,0,0,24,0,0,255,0,0,255,0,0,24,0,0,24,0,0,24,0,0:::FORL1=0TO21:READHP$(L1):NEXT:::FORL1=1TO17:READSY(L1):NEXT:GOTO10000::
  4. 1060 SYSSY(7):SYSSY(15),0:SYSSY(17),32,0,18,"ULTIMA 5":SYSSY(17),32,1,26,"MAP EDIT":SYSSY(17),32,2,39,"  V1.0  ":SYSSY(17),32,3,22,"E.DONOHO":SYSSY(17),35,5,240,"UNDER":SYSSY(17),35,11,240,"USING":SYSSY(17),12,24,16,"PRESS H FOR HELP":RETURN::
  5. 1185 IFYC=11THEN1200
  6. 1190 YC=YC+1:GOTO5100
  7. 1200 IFYY<4THENYY=YY+1
  8. 1205 GOTO5080::
  9. 1220 IFYC=0THEN1235
  10. 1225 YC=YC-1:GOTO5100
  11. 1235 IFYY>0THENYY=YY-1
  12. 1240 GOTO5080::
  13. 1255 XC=XC+1:IFXC=16THENXC=15
  14. 1265 GOTO5100::
  15. 1280 XC=XC-1:IFXC=-1THENXC=0
  16. 1290 GOTO5100::
  17. 1305 SYSSY(17),X,Y,6,LEFT$(SP$,S):FORL1=1TOD:SYSSY(17),X,Y+L1,6," ":SYSSY(17),X+1,Y+L1,0,LEFT$(SP$,S-2):SYSSY(17),X+S-1,Y+L1,6," ":NEXT:SYSSY(17),X,Y+D+1,6,LEFT$(SP$,S):RETURN::
  18. 1345 SYSSY(17),33,23,240,"X:  ":SYSSY(17),35,23,240,MID$(STR$(BX),2):SYSSY(17),33,24,240,"Y:  ":SYSSY(17),35,24,240,MID$(STR$(BY),2):RETURN::
  19. 1380 SYSSY(17),36,12,21,"   ":SYSSY(17),36,12,21,MID$(STR$(US),2):SYSSY(14),US,36,14:RETURN::
  20. 1415 MY=INT(US/16):MX=INT((US/16-MY)*16):MY=MYAND7:MS=0:IFMY<>INT(US/16)THENMS=1
  21. 1417 POKE53269,0:X=0:Y=3:S=34:D=16:GOSUB1305:SYSSY(17),0,20,22,"      PRESS <SPACE> FOR MORE      
  22. 1422 [129]L1[178]0[164]7:[129]L2[178]0[164]15:[158]SY(14),L1[172]16[170]L2[170]MS[172]128,L2[172]2[170]1,L1[172]2[170]4:[130]:[130]
  23. 1440 [151]53248,(MX[172]16[170]32)[175]255:[151]53264,[171](MX[172]16[170]32[177]255):[151]53249,MY[172]16[170]82:US[178]MY[172]16[170]MX[170]MS[172]128:[141]1380
  24. 1455 CC[178]1
  25. 1460 [151]53269,CC:CC[178]CC[170].1:[139]CC[177][178]2[167]CC[178]0
  26. 1470 [161]A$:[139]A$[178]""[167]1460
  27. 1480 [139]A$[178]""[167]1520
  28. 1485 [139]A$[178]"ON"[167]1530
  29. 1490 [139]A$[178]""[167]1540
  30. 1495 [139]A$[178]"CMD"[167]1550
  31. 1497 [139]A$[178]" "[167]MS[178]1[171]MS:[137]1422
  32. 1500 [139]A$[178]"INPUT"[176]A$[178][199](13)[167][142]
  33. 1510 [137]1455
  34. 1520 MY[178]MY[170]1:[139]MY[178]8[167]MY[178]7
  35. 1525 [137]1440
  36. 1530 MY[178]MY[171]1:[139]MY[178][171]1[167]MY[178]0
  37. 1535 [137]1440
  38. 1540 MX[178]MX[170]1:[139]MX[178]16[167]MX[178]15
  39. 1545 [137]1440
  40. 1550 MX[178]MX[171]1:[139]MX[178][171]1[167]MX[178]0
  41. 1555 [137]1440::
  42. 1660 [139]BY[178]0[167]5140
  43. 1665 BY[178]BY[171]1
  44. 1670 [151]53269,0:[158]SY(11),20[170]BY,BX,MM:[159]15,8,15:[141]3010:[160]15:[139]ER[167]5015
  45. 1690 [137]5030::
  46. 1705 [139]BY[178]15[167]5140
  47. 1710 BY[178]BY[170]1:[137]1670::
  48. 1760 [139]BX[178]15[167]5140
  49. 1765 BX[178]BX[170]1:[137]1670::
  50. 1795 [139]BX[178]0[167]5140
  51. 1800 BX[178]BX[171]1:[137]1670::
  52. 1825 [151]MM[170]YY[172]16[170]YC[172]16[170]XC,US:[158]SY(14),US,XC[172]2,YC[172]2:[137]5140::
  53. 1850 [151]53269,0:[159]15,8,15:[159]2,8,2,"#":[152]15,"B-P:";2;0:[129]L1[178]0[164]255:[152]2,[199]([194](MM[170]L1));:[130]:[152]15,"U2";2;0;BY[170]20;BX:[160]2:[141]3010:[160]15:[142]::
  54. 2010 [159]15,8,15
  55. 2013 [158]SY(7):[158]SY(15),14:[151]53280,14:[158]SY(17),14,3,30,"PLEASE INSERT":[158]SY(17),6,5,15,"ULTIMA V WARRIORS OF DESTINY":[158]SY(17),16,7,30,"DISK ONE
  56. 2040 GETA$:IFA$=""THEN2040
  57. 2045 SYSSY(12),"COLORS",38912:GOSUB3010:IFERTHEN2013
  58. 2055 SYSSY(12),"S0",40960:GOSUB3010:IFERTHEN2013
  59. 2065 SYSSY(12),"S1",45056:GOSUB3010:IFERTHEN2013
  60. 2100 CLOSE15:SYSSY(7):SYSSY(15),6:POKE53280,6:SYSSY(17),14,3,22,"PLEASE INSERT":SYSSY(17),6,5,15,"A COPY OF THE BRITANNIA DISK":SYSSY(17),4,7,15,"OR A COPY OF THE UNDERWORLD DISK
  61. 2130 [161]A$:[139]A$[178]""[167]2130
  62. 2140 [158]SY(11),20,0,MM:[159]15,8,15:[141]3010:[139]ER[167]2100
  63. 2155 [160]15:[142]::
  64. 3010 ER[178]0:[132]15,X,X$:[139]X[178]0[176]X[178]73[167][142]
  65. 3020 [158]SY(15),2:[151]53280,2:ER[178][171]1:[158]SY(17),14,10,16,"DISK  ERROR!":[158]SY(17),20[171][195](X$)[173]2,12,16,X$:[158]SY(17),14,20,22," PRESS A KEY 
  66. 3045 GETA$:IFA$=""THEN3045
  67. 3060 RETURN::
  68. 3080 POKE53269,0:X=0:Y=0:S=40:D=23:GOSUB1305:SYSSY(17),0,0,22,"ULTIMA 5 MAP EDITOR V1.0        E.DONOHO":FORL1=0TO21:SYSSY(17),1,L1+1,16,HP$(L1):NEXT
  69. 3115 GETA$:IFA$=""THEN3115
  70. 3120 GOTO5010:END
  71. 5010 POKE53269,1
  72. 5015 GOSUB1060:GOSUB1380
  73. 5030 GOSUB1345
  74. 5080 SYSSY(16),YY
  75. 5100 POKE53248,(24+XC*16)AND255:POKE53264,-(24+XC*16>255):POKE53249,50+YC*16:U=PEEK((YY+YC)*16+XC+MM):SYSSY(14),U,36,8:SYSSY(17),36,6,18,"   ":SYSSY(17),36,6,18,MID$(STR$(U),2)
  76. 5140 CC=1
  77. 5145 POKE53269,CC:CC=CC+.1:IFCC>=2THENCC=0
  78. 5200 GETA$:IFA$=""THEN5145
  79. 5210 IFA$=""THEN1185
  80. 5215 IFA$="[145]"THEN1220
  81. 5220 IFA$=""THEN1255
  82. 5225 IFA$="[157]"THEN1280
  83. 5226 IFA$=" "ORA$="[133]"ORA$=CHR$(13)THEN1825
  84. 5227 IFA$="+"THENUS=(US+1)AND255:GOSUB1380:GOTO5140
  85. 5228 IFA$="-"THENUS=(US-1)AND255:GOSUB1380:GOTO5140
  86. 5230 IFA$="U"THENGOSUB1415:GOTO5015
  87. 5235 IFA$="@"THEN1660
  88. 5240 IFA$="/"THEN1705
  89. 5245 IFA$=";"THEN1760
  90. 5250 IFA$=":"THEN1795
  91. 5255 IFA$="R"THEN1670
  92. 5260 IFA$="W"THENGOSUB1850:ON-ER+1GOTO5140,5015
  93. 5265 IFA$="H"THEN3080
  94. 5267 IFA$="Q"THENRETURN
  95. 5270 GOTO5140:END
  96. 10000 PRINT"[147]":OPEN15,8,15:OPEN2,8,2,"0:U5EDML,P,R":CLOSE2:INPUT#15,X,X$:CLOSE15:IFX=0ORX=73THEN10060
  97. 10020 PRINT"CAN'T FIND U5EDML":END
  98. 10060 SYS57812"U5EDML",8,1:SYS62631:POKE53240,47:POKE53287,1:POKE53277,1:POKE53271,1:POKE50043,11:SYSSY(13):GOSUB2010:POKE53280,0:GOSUB5010:POKE56576,PEEK(56576)OR3:POKE53272,21:POKE53265,27:POKE53269,0:END:DATAW    WRITE BLOCK TO DISK,R    READ BLOCK FROM DISK," 
  99. 50005 [131]CRSR MOVE CROSS,KEYS," ",SPC  PLOT SHAPE,F1,RET," ","  @",":   ;  MOVE BLOCK","  /"," ",U   USING MENU,+/- INCRMENT/DECREMENT USING SHAPE,Q   QUIT," ",NOTE THAT AN ENTIRE MAP BLOCK CANNOT,"FIT ON THE SCREEN, SO USE THE CURSOR
  100. 50030 DATAKEYS TO MOVE PAST THE LOWER OR,UPPER BORDER OF THE SCREEN.,49192,49221,49239,49262,49283,49348,49372,49402,49447,49530,49563,49629,50193,49673,49526,49851,50083
  101.